| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=wp), | public | :: | freq |
Freq, RF frequency, GHz |
|||
| real(kind=wp), | public | :: | xmi1 |
Mi1/Mp, relative mass of ions 1 |
|||
| real(kind=wp), | public | :: | zi1 |
charge of ions 1 |
|||
| real(kind=wp), | public | :: | xmi2 |
Mi2/Mp, relative mass of ions 2 |
|||
| real(kind=wp), | public | :: | zi2 |
charge of ions 2 |
|||
| real(kind=wp), | public | :: | dni2 |
0.03 Ni2/Ni1, relative density of ions 2 |
|||
| real(kind=wp), | public | :: | xmi3 |
Mi3/Mp, relative mass of ions 3 |
|||
| real(kind=wp), | public | :: | zi3 |
charge of ions 3 |
|||
| real(kind=wp), | public | :: | dni3 |
Ni3/Ni1, relative density of ions 3 !!!!!!!!!!! parameters for alphas calculations !!! |
|||
| integer, | public | :: | itend0 |
itend0, if = 0, no alphas |
|||
| real(kind=wp), | public | :: | energy |
energy, max. perp. energy of alphas (MeV) |
|||
| real(kind=wp), | public | :: | factor |
factor, factor in alpha source |
|||
| real(kind=wp), | public | :: | dra |
dra, relative alpha source broadening (dr/a) |
|||
| integer, | public | :: | kv |
kv, V_perp greed number !!!!!!!!!!! numerical parameters !!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|||
| integer, | public | :: | nr |
nr, radial grid number <= 505 |
|||
| real(kind=wp), | public | :: | hmin1 |
hmin1, rel.(hr) min. step in the Fast comp. mode, <1.d0 |
|||
| real(kind=wp), | public | :: | rrange |
rrange, rel.(hr) size of a 'turning' point region, <1.d0 |
|||
| real(kind=wp), | public | :: | eps |
eps, accuracy |
|||
| real(kind=wp), | public | :: | eps_const |
eps, accuracy |
|||
| real(kind=wp), | public | :: | hdrob |
hdrob, h4 correction, |
|||
| real(kind=wp), | public | :: | cleft |
cleft, left Vz plato border shift (<1) |
|||
| real(kind=wp), | public | :: | cright |
cright, right Vz plato border shift (>1) |
|||
| real(kind=wp), | public | :: | cdel |
cdel, (left part)/(Vz plato size) |
|||
| real(kind=wp), | public | :: | rbord |
rbord, relative radius of reflection, <1. |
|||
| real(kind=wp), | public | :: | pchm |
pchm, threshold between 'strong' and weak' absorption, <1. |
|||
| real(kind=wp), | public | :: | pabs0 |
pabs, part of remaining power interp. as absorption |
|||
| real(kind=wp), | public | :: | pgiter |
pgiter, relative accuracy to stop iterations |
|||
| integer, | public | :: | ni1 |
ni1, grid number in the left part of Vz plato |
|||
| integer, | public | :: | ni2 |
ni2, grid number in the right part of Vz plato |
|||
| integer, | public | :: | niterat |
niterat, maximal number of iterations |
|||
| integer, | public | :: | nmaxm(4) |
nmaxm(1), permitted reflections at 0 iteration nmaxm(2), permitted reflections at 1 iteration nmaxm(3), permitted reflections at 2 iteration nmaxm(4), permitted reflections at 3 iteration |
|||
| integer, | public | :: | maxstep2 |
maxstep2, maximal steps' number in Fast comp. mode |
|||
| integer, | public | :: | maxstep4 |
maxstep4, maximal steps' number in Slow comp. mode !!!!!!!!!!! options !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|||
| integer, | public | :: | ipri |
ipri, printing output monitoring: 0,1,2,3,4 |
|||
| integer, | public | :: | iw |
iw, initial mode (slow=1, fast=-1) |
|||
| integer, | public | :: | ismth |
ismth, if=0, no smoothing in Ne(rho),Te(rho),Ti(rho) |
|||
| integer, | public | :: | ismthalf |
ismthalf, if=0, no smoothing in D_alpha(vperp) |
|||
| integer, | public | :: | ismthout |
ismthout, if=0, no smoothing in output profiles |
|||
| integer, | public | :: | inew |
inew=0 for usual tokamak&Ntor_grill; 1 or 2 for g' in ST&Npol_grill |
|||
| integer, | public | :: | itor |
itor, +-1, Btor direction in right coord{drho,dteta,dfi} |
|||
| integer, | public | :: | i_pol |
ipol, +-1, Bpol direction in right coord{drho,dteta,dfi} !!!!!!!!!!! grill parameters and input LH spectrum !!!!!!!!!!!! |
|||
| real(kind=wp), | public | :: | zplus |
Zplus, upper grill corner in centimeters |
|||
| real(kind=wp), | public | :: | zminus |
Zminus, lower grill corner in centimeters |
|||
| integer, | public | :: | ntet |
ntet, theta grid number |
|||
| integer, | public | :: | nnz |
nnz, N_phi grid number |
|||
| integer, | public | :: | spectrum_type |
spectrum type 1 - 1D, 2 = 2D, 3, scatter |
!!!!!!!!!!! read physical parameters !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!! read parameters for alphas calculation !!!!!!!!!!!!!!!!!!! !!!!!!!!!!! read numerical parameters !!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!! read options !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!! read grill parameters and input LH spectrum !!!!!!!!!!!! !!!!!!!!!!! checking initial parameters !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*) | :: | file_name |